Option Explicit
Sub L_Sample012()
    'ոL_Data03
    Dim mySht As Worksheet
    Dim myStr As String
    Set mySht = Worksheets("L_Data03")			'N
    'M
    With mySht.OLEObjects("Listbox1").Object
        myStr = "Listbox1.Value=" & .Value & vbCrLf
    End With
    'զX
    With mySht.OLEObjects("ComboBox1").Object
        myStr = myStr & "ComboBox1.Value=" & .Value & vbCrLf
    End With
    'r
    With mySht.OLEObjects("TextBox1").Object
        myStr = myStr & "TextBox1.Value=" & .Value & vbCrLf
    End With
    's
    With mySht.OLEObjects("ToggleButton1").Object
        myStr = myStr & "ToggleButton1.value=" & .Value & vbCrLf
    End With
    'ﶵs
    With mySht.OLEObjects("OptionButton1").Object
        myStr = myStr & "OptionButton1.value=" & .Value & vbCrLf
    End With
    '֨
    With mySht.OLEObjects("CheckBox1").Object
        myStr = myStr & "CheckBox1.value=" & .Value & vbCrLf
    End With
    'ʦC
    With mySht.OLEObjects("ScrollBar1").Object
        myStr = myStr & "ScrollBar1.value=" & .Value & vbCrLf
    End With
    'Lիs
    With mySht.OLEObjects("SpinButton1").Object
        myStr = myStr & "SpinButton1.value=" & .Value & vbCrLf
    End With
    '
    With mySht.OLEObjects("Label1").Object
        myStr = myStr & "Label1.Caption=" & .Caption & vbCrLf
    End With
    'Os
    With mySht.OLEObjects("CommandButton1").Object
        myStr = myStr & "CommandButton1.Caption=" & .Caption
    End With
    MsgBox myStr
    Set mySht = Nothing					'
End Sub
